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CHAIRMAN’S REPORT John Mason 


ussex QL User Group was the first sub group to offer to hold 

Se 2007 AGM so the Annual General Meeting will be held at 

Portslade Town Hall on Sunday 15 April 2007. | look forward 

to seeing all of you there. Our thanks also go to the West Midlands QL User 

Group, who offered to host the AGM, but on the last day. We have 
suggested that they should apply earlier next year. 


During 2006 we have carried out extensive trials with an electronic 
version of the Magazine. These trials have now come to a successful end. 
Committee have decided to offer Members the option of receiving their 
magazines electronically as an email attachment in place of the present 
printed version by post from Volume 24, Issue 1 — Feb/Mar 2007. 


The minimum requirement to receive the magazine electronically is 
a computer with the ability to receive email and a 56K modem. 


To subscribe send your email address with the subject “Electronic 
Magazine 2007” to Sarah Gilpin at secretary@quanta.org.uk as soon as 
possible please. 


Each member who receives their magazine electronically will 
reduce the magazine postage bill by £1.38 per year for a UK address, more 
for an overseas member, and this will help to contain the operating costs 
of Quanta. 


COPY DATE for FEBRUARY/MARCH 2007 ISSUE is: 
5'™4H FEBRUARY 2007 


Please ensure that your copy reaches the editor on or before that date. 
Copy on Paper or Magnetic Media or by Email. 
All Contributions are Welcome. 
Copy on Microdrive or Floppy Disk or CD to be accompanied by hard 
copy printout. 


Copy by Email to - editor@quanta.org.uk 
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EDITOR’S APOLOGY John Gilpin 


QUANTA Magazine. Due to commitments to my family and to my 

work for the Scout Association, not to mention my work as 
QUANTA Treasurer,my “spare” time during the last quarter of 2006 has 
been extremely limited and one of the results of this is the late publication 
of this issue. My sincere apologies are sent to all our members and traders 
and | trust that you have not been unduly inconvenienced. 


| feel that an apology is needed for the lateness of this issue of 


The working committee of QUANTA is currently reduced to three 
members and with all the will in the world, it is not possible to provide a 
consistent and efficient service to our members and ideally, a further three 
members would be welcomed in order to divide the working load between 
us. By volunteering to take on extra duties for QUANTA, the present 
committee members stress that the extra work will have to take a lower 
priority to current commitments and apologises in advance for any delays 
which are caused by circumstances beyond their control. 


| understand from our Secretary that nomination forms sent out with 
the Oct/Nov 2006 Issue have resulted in only one nomination to stand for 
election to the committee and that from a non-member who joined QUANTA 
in order to stand. Surely there must be others who can spare a couple of 
hours or so per week to share our burden. Although the deadline for 
nominations has passed, we have the facility to co-opt members onto the 
committee and those interested would be most welcome. If you know of a 
member (or yourself) who would be interested in learning more about the 
work of the committee, please contact our secretary, Sarah Gilpin, or fill in 
and return a nomination form. 


QUANTA COMMITTEE PRECIS Sarah Gilpin 


A committee meeting was held at the Byfleet workshop. The 


venue and date for the AGM 2007 were discussed. In the 
absence of any other offers, the AGM will be held at 


Portslade Town Hall, Sussex on 15" April 2007. A dinner will be organised 
for Saturday 14* April 2007 if there is enough members interested. 


Progress on the electronic version of the magazine was also 


discussed together with the improvement in format and content since the 
AGM 2006. It was felt that the trader’s opinions of the suggested change in 
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THE QL & THE GENEALOGIST(3) Sarah Gilpin 
Research 


computers have driven the transfer of old documents into 

computer format and therefore more information is easily 
available to the researcher. No longer does all research have to be 
undertaken in library or cathedral archive offices, nor does the family 
historian have to be able to read old Secretary handwriting. Parish 
Registers, Census records, rates records and other civil and ecclesiastical 
records are being transcribed by students and researchers. 


Te increasing interest in family history and the growth in home 


One of the oldest and largest data bases generally available 
through the Internet is the IGI files generated and held by the Mormon 
Family History Centres. This information is also available on microfiche at 
local history centres throughout the UK. The downside to the IGI files is that 
death is not recorded in the way that baptisms and marriages are. The 
earliest IGI information was gleaned by word of mouth from the new 
members of the Mormon Church, and this has lead to many variations of 
spellings and other inaccuracies. The good researcher will check all the 
data and verify the same from alternative or the original sources. 


Information held in the registers of births, deaths and marriages has 
always been available from Somerset House (more recently St Catherine’s 
House) provided you knew the name and probable year of birth and 
duplicate certificates are available at a price. The index for this source is 
now available in many libraries and provides a very useful tool, but although 
the English/Welsh records are available, in Scotland, the reverse is not true. 
The limitation is that Civil Registration did not start until 1837 and was not 
compulsory until 1856. More information was added to the records towards 


the latter part of the 19'* Century, such as the spouse’s surname for a 
marriage, and the mother’s maiden name for a birth and the age at death. 


Other important sources are the National Census, Rates Books, 
Parish registers, and records from the Armed forces. One difficulty with 
many of those records is that they are only available in the locality of origin. 
A far greater difficulty arises from inaccuracies in the information given to 
the census enumerator and the vagaries of name spelling by the 
enumerator due to local accents and dialects. The decision has to be made 
as to how much research can you do yourself and how much are you willing 
to pay others to do. 
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Military records are available in some libraries, and on the Internet. 
So are lists of emigrants to the USA and lists of criminals to Australia. What 
is not always available are the names of those who died during the voyage. 


For the absolute beginner the place to start is the civil registers and 
family members. Start with recording the names of your parents and 
grandparents and their siblings. Include, where known, their dates of birth, 
marriage and death with places. Armed with this information start to use the 
Civil registers. All registrations should be made within six weeks of the 
event; the registrations are listed in quarters Jan — March, April — June etc. 
Therefore a child born around Christmas may not be registered until 
January and the record will therefore be in a different year and quarter than 
expected. The entry in the civil register gives Surname, Forenames (or 
Initials), Registration District, Volume Number and Registration Number — 
from which any individual record may be obtained from St Catherine’s House. 


Another excellent source is parish registers, but where these have 
been transcribed by such organisations as the Mormons errors occur. The 
most common error comes from the parish register dates as the church year 


started April 1st and ran to March 31st Therefore in the early registers the 
months Jan to March are often recorded by researchers in the wrong year 
(One before the actual year). There are two other problems arising from the 


registers themselves, the first is that until the late 17‘ early 18" century only 
the father’s name was recorded, and the second one is the common 
practice of naming younger children after deceased older children. There 
was also a convention used in the naming of children in many parts of 


England and Scotland (eldest son named after paternal grandfather, 2" son 


after maternal grandfather and 3" son after father, similarly for girls), so that 
a number of children in each generation were frequently called by the same 
name. Although these children may well have been called within the family 
by shortening or nicknames, the registers only give the original name. 
Example — Richard Good has 4 sons, say William, Walter, Richard and 
John; if each of these sons married and had at least one son there would 
be 4 Richard Goods, their children would show in the baptismal records as 
name, son of Richard Good, (which Richard, when they all live in the same 
parish?) 


Once the 1881 census became available on disc, whether through 
the local history centre, at the library or bought for use at home, it became 
easier to find locations of your ancestors as both place of birth and place of 
census registration are given. It was at this stage that we realised that we 
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were gathering information from a number of different sources, but had no 
cross reference to the source of any single piece of information. 


Dilwyn Jones has produced an excellent list of sources ‘ for family 
history research. There are also many research organisations on the 
Internet, such as Genes Reunited, Roots and many more. There are also 
sites available for a single surname or for a place name, e.g. Stonehaven. 
Some sites are free for browsing, but charge for printed data while others 
have a registration fee before information can be accessed. Many towns, 
counties and regions have their own historical society which researches and 
records local information, but many have a joining fee. Many of these have 
publications and CDs at a reasonable price for their area. 


One such organisation told all new members that for earlier family 
accuracy there should be a six point reference for any individual. The 
parents and both sets of grandparents of an individual make up the six point 


reference and is particularly helpful for the 17 and 18" centuries, where the 
naming of children was so often duplicated. 


Armed with this research information, and source material the family 
historian is ready to record and cross reference the same. 


The final article in this series will describe the methods that we 
initially used for recording our information some 10 years ago and the 
refinements we have made as we became more proficient and made use of 
the Internet sources. We have spent time in Somerset, Gloucestershire, 
Berkshire, Oxfordshire and Aberdeenshire conducting research; some to 
verify existing information and some to find out new information. All these 
sources need to be recorded on the family database. 


Notes: ' Some years ago, Dilwyn Jones provided me with a floppy disc 
containing a number of sources which | found very useful. The same disc 
contained a Viewer programme which enabled me to select the individual 


MASTERMIND Steve Poole 


ne of the all-time favourite computer-games was the 
famous ‘Mastermind’. Perhaps one of the most surprising 


aspects of the game was that it needed such little code to 
simulate. Most of the code in the listing is as usual for initialisation and 
input error-trapping. (To avoid copyright restrictions the game does not 
conform strictly to the commercial version). 
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JO Wh WER! $0'TW.b 


Kaiser-Wilh.-Str. 302 D-47169 Duisburg 
Tel. 0203 502011 Fax 0203 502012 
http://smsq.j-m-s.com smsq@j-m-s.com 


SMSQ/E 


QPC2 Version 3 with SMSQIE ... now only EUR 59,90 
QPC2 Version 3 upgrade from Version 2... only EUR 19,90 
QPC2 Version 3 upgrade from Version1... only EUR 39,90 
QPCPrint ... still only EUR 39,90 


Please note that QPCPrint will be shipped on CD only. 

QPC2 will also be shipped on CD by default now, as more and more systems 
(especially notebooks) do not have floppy disks drives built in anymore. If 
you prefer QPC2 on HD floppy disks, please state with your order. 

Free updates are available on Marcel’s Website www.KILGUS.net 

If you prefer updates on CD or floppy disk, send in your master medium 
together with 4 international reply coupons to cover return postage, medium 
and packaging. 


SMSQIE for ATARI or GoldCard or SuperGoldCard or QXL... 
now only EUR 39,90 


Colour drivers now included as standard for (Super)GoldCard versions 


For shipping inside Europe, EUR 3; will be added for postage and packaging. 
For shipping outside Europe, EUR 6, will be added for p & p. 


If you wish to place your order via internet, please do not send your credit card details in an email! 
Please use the secure contact form on the SMSQ homepage: SMSQ.J-M-S.COM 
We accept VISA, MasterCard and Diners Club! 
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Typically, just one REPeat loop containing two nested FOR-loops 
can do just about anything... 


To play, just RUN and follow the instructions. Two pins and two 
colours are easy, but nine pins and nine colours are diabolical! For 
example, nine numbers have factorial 9! combinations, being 362880 
possible answers! (The colours are simply represented by numbers to 
simplify the coding). 


Remember, to play you must INPUT your try as consecutive 
figures in the range 1 to 9 (or whatever the number of figures you have 
selected). The number of pins is initially indicated by the number of 
full-stops... 


If you don't know how to play, just ask an older friend who will 
certainly be able to explain! 


My thanks go to Bruno Coativy who beta-tested this program and 
found a nasty bug, which | have eliminated by using mask-strings to 
avoid counting pins twice. This bug occurred because | had forgotten to 
test the code with fixed value-limits...Aiee!...haste and over- 
confidence... 


Happy mind-mastering! 


110 REMark Mastermind_bas. by S.Poole, v20dec2006 
120 REMark Beta-Test & Optimisation by B.Coativy 
130 REMark for Quanta 


150 OPEN#1,con_8: WINDOW 256,206, 256,0 

160 PAPER 2: INK 7: CLS: ct=1 

170 AT 0,1: CLS 3: INPUT'Difficulty? (2 to 9)'!d$ 

180 IF dS INSTR 'Qq': STOP 

190 IF dS INSTR '23456789': n=dS: ELSE GO TO 170 

200 rS$='"': FOR f=1 TO n: r$=rS&RND(1 TO n) 

210 AT 0,1: CLS 3: PRINT 'no.', 'try','good', 'mis-placed' 
220 aS='123456789': aS=a$(1 TO n) 


230 AT 1,7: PRINT FILLS('.',n) 

240 : 

250 REPeat loop 

260 PRINT TO l;ct; TO 7;: INPUT;t$; : good=0: miss=0 
270 IF tS INSTR 'Qq'!: STOP 
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280 IF LEN(t$)<>n: PRINT! 'Oops!': NEXT loop 
290 : 

300 FOR i=l TO n 

310 IF NOT(tS(i) INSTR aS): PRINT! 'Oops!': NEXT loop 
320 END FOR i 

330 : 

340 IF tS=r$: PRINT! 'Bravo!': EXIT loop 

350 bS=r$ 

360 REMark lst pass: see if correct 

370 FOR f=1 TO n 

380 IF r$(f£)=t$(f) THEN 

390 good=goodt1: b$(f)="@": t$(f)='*' 
400 END IF 

410 END FOR £ 

420 : 

430 REMark 2nd pass: see if mis-placed 

440 FOR f=1 TO n 

450 p=t$(f£) INSTR bS 

460 IF p: miss=miss+1l: bS$(p)='@' 

470 END FOR £ 

480 : 

490 PRINT TO 18!good; TO 25!miss: ct=ct+1l 
500 END REPeat loop: iS=INKEYS (#1,500): RUN 

S10}. 3 8 


End of listing 
PROCedures & FuNctions Steve Poole 


ave you ever wondered why the FuNctions CHR$, DATES, 

H DAY$, FILL$, INKEY$, SDATE$ or VER$ end with a dollar- 

sign? Or why (x DIV y), (x MOD y) or (INT(x)) aren't written (x 

DIV% y), (x MOD% y), or (INT%(x)). Don't look for the answer in the 

Beginner's Guide or Jan Jones's SuperBASIC Handbook : no mention is 

made of them. To find the answer, | have gleaned snippets of information 

from various listings, and have managed to put the various pieces together, 
so here are my findings: 


There are three sorts of SuperBASIC FuNctions : float, integer and 
string. Usually most listings only use one type: float. We shall see why later. 
But first a description of SuperBASIC routines : float, Integer & String-type 
routines are identified by their names. Float has no suffix, Integer has a '%' 
suffix and string has a '$' suffix. Float routines must RETurn a floating-point 
expression, Integer routines must RETurn an Integer% expression, and 
String routines must RETurn a string$ expression. (But this is perhaps not 
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the case under SMSQ/E). That seems simple enough and is illustrated by 
the routines on lines 150 and 190. 


So why are these constructions not described for us Joe Bloggs 
programmers? The TURBO Manual uses the three different routine types, 
and even gives clues such as the BASIC_TYPE% keyword, which de- 
scribes what it does but not how it does it! (The routines appear to be written 
in machine code...) 


The answer seems to be that the writers of the SuperBASIC Lan- 
guage did not have enough time to describe things fully by the time that the 
QL was launched. And the QL by default supposedly converts everything to 
float-type anyway! Now for the results | found: 


SuperBASIC is a very flexible language, but it did not make full use of 
such advantages as integer FOR-loops% or String SELect$. We had to wait 
for TURBO to get these. When Basic routines were defined, flexibility went 
haywire : look at the routine on Line 280 : what a confusing mess! To make 
any sense of it, look at line 130 : the actual calling parameters of the FLOAT 
routine are all of string type. And here is the rub : the type of the routine’s 
Formal parameters is determined by the type of the actual calling parame- 
ters, not by any suffixes they might have. This means that the variables on 
line 290 are all of string type, even though they appear to be float, integer 
and string! | said it was a mess....so just read that last paragraph again! 

The lesson is, of course, to give formal parameters the type you 
expect them to receive! Don't use all the flexibility (unless you are prototyp- 
ing), and use suffixes to make the function of Procedures, functions, param- 
eters and variables clear. Coercion on the QL is very much complicated by 
all the many permutations that calls and assignments can adopt. 


Maybe | will write another article on the thorny problem of LOCal 
parameters, (not LOCal variables), and the LOCal nature of names, (not 
values)! And perhaps another on the curious use of brackets under 
basic...and unexpected calling orders...The list of SuperBASIC Routine 
Quirks is a long one. 

Best Wishes, 
Steve Poole. 


| already have an article on brackets (parentheses) from Steve and this 
will appear in a later issue [Ed] 
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100:: 
110 REMark PROC_FN_bas 
120 CLEAR: OPEN#1,con_32: WINDOW 256,206,256,0: CLS 
130 PRINT integer%(PI),string$(1),float(‘abc','d','e','f) 
140: 
150 DEFine FuNction integer%(float) 
160 int%=INT(float): RETurn int% 
170 END DEFine 
180: 
190 DEFine FuNction string$(float) 
200 s=float 
210 SELect ON s 
220 =0: RETurn '0' 
230 9 =1: RETurn '+1' 
240 =REMAINDER: RETurn '-1' 
250 END SELect 
260 END DEFine 
270: 
280 DEFine FuNction float(var,num,num%,num$) 
290 num=var(1): num%=var(2): num$=var(3) 
300 Lg=LEN(num&num%&num$) : RETurn Lg 
310 END DEFine 
320 :: 


End of Listing. 


CONFIG BLOCKS IN TURBO(2) George Gwilt 


he following article is reproduced by kind permission of the 

| author and The Scottish QL Users Group (SQLUG) in whose 

July & August Newsletter it was first published. It is the 

concluding part of the article printed in QUANTA Magazine Volume 23 Issue 
4 page 22 and was held over from Issue 5 due to shortage of space. [Ed.] 


New code added for Codegen_task v4.07 
This allows an "extension" with first parameter 1 to be used to insert an _INS file. 
First the markers "$£#*" (for the INS position) and "((TZ>>" are found. 


If these are there, the INS file name from the correct "extension" is loaded to RAM. If this 
is a correct file the contents are placed at the INS position. 


* D5 is a state marker. We look for A "$£#*" and B "((TZ>>". 
* State -1 = only B found 
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O = neither found 
1 = only A found 


*D3=-1 

*D4="TZ>>" 

* D6 = "#*$£" 

* D7 = “(" 
movea.| obj chan,a0 
moveq #0,d1 
moveq  #fs_posab,dO 
trap #3 
moveq  #0,d5 
move.| #"TZ>>" d4 
move.| #'#*$£",d6 
move.w #"((",d7 
moveq  #-1,d3 
subq.l #4,sp 

Ik bsr get_wd 
tst.b d5 
beq Ik_1 
bmi Ik_3 

;Operations for state 1 

;Now looking for "B" 
cmp.w (sp),d7 
bne Ik 
bsr get_lwd 
cmp.| (sp),d4 
bne Ik 
bsr do_pos 
move.| d1,4(a1) 
bra Ik_end 

; Operations for state 0 

; Looking for both "A" and "B" 

Ik_1 cmp.w (sp),d6 
beq Ik_1a 
cmp.w 2(sp),d7 
beq Ik_1b 
bra Ik 

; First word of A just found 

Ik_1a bsr get_wd 
swap d6 
cmp.w (sp),d6 
beq Ik_1c 


ID of the file of object code 


-> start of file 


mark state 0 


make a space for a long word 


set a word to stack 


state 0 
state -1 
state 1 


Could it be "B"? . . 

.. no, try again 

set a long word to stack 
Is it really "B"? . . 

.. no, try again 


find B's current position . 


.. and store it 
Finished! 


could it be "A"? . . 

.. yes 

could it be "B"? . . 

.. yes 

not found so try again 


"A" found 
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TABULATE @) 


CAPS LOCK W/W S 


QL Today 


The magazine for all QDOS SMSQ users 


published 5 times a year. 


Volume 11 issue 2 is Now Out! 
We apologise for the fact that is was a little late this time and hope to make 
up for it by gertting volume 3 out much more promptly. 


IF YOU HAVE NOT YET RE-SUBSCRBED WE DO HAVE ALL BACK ISSUES 
AVAILABLE SO YOU NEED NOT MISS ATHING. 
If you do not already get QL Today why not get a sample issue and try it 
now? 


You can subscribe by contacting : 


Jochen Merz Software 
Kaiser-Wilhelm Str. 302,47169 Duisburg, Germany 
Tel +49 (0) 203 502011 Fax +49 (0) 203 502012 
email :jmerz@j-m-s.com 


Q Branch 
20 Locks Hill Portslade, Sussex, BN41 2LB. UK 


Tel +44 (0) 1273 386030 (eves) Fax +44 (0) 1273 430501 
email : sales@qbranch.demon.co.uk 


web : www.qitoday.com 
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swap 
bra 
; A now found 
Ik_1c moveq 
bsr 
move.| 
bra 
; Could be B 
Ik_1b bsr 
cmp.| 
bne 
moveq 
bsr 
move.| 
bra 
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; Operations for state -1 


; Now searching for "A" 
Ik_3 cmp.w 
bne 
swap 
bsr 
cmp.w 
beq 
swap 
bra 
; Subroutines and error 


d6 restore D6 for another day 
Ik 

#1,d5 set to state 1 

do_pos find A's position . . 
d1,(a1) . and store it 

Ik go back to find "B" 
get_lwd get the next long word 
(sp),d4 is it the rest of "B"? . . 
Ik ..no. Try again 
#-1,d5 set to state -1 

do_pos find B's position . . 
d1,4(a1) .. and store it 

Ik Go back to search for "A" 
(sp),d6 Could it be A?.. 

Ik .. no, try again 

d6 

get_wd Get next word 

(sp),d6 Does it complete A? . . 
Ik_3a .. Yes 

d6 Restore D6 and.. 

Ik .. try again 


routines 


;DO_POS1 advances D1.L - 6 bytes and sets A1 -> zeroes 


do_pos1 subq.l #6,d1 
bra do_pos2 
;DO_POS sets the current position to D1.L and sets A1 -> zeroes 
do_pos moveq  #0,d1 
do_pos2 moveq #fs_posre,dO 
trap #3 
lea zeroes,at 
rts 
; GET_SIX, GET_WD and GET_LWD set 6, 2 and 4 bytes from the file to 
the stack 
get_six moveq  #6,d2 
bra get_wd1 
get_wd moveq #2,d2 
bra get_wd1 
get_lwd moveq #4,d2 
get_wd1 lea 4(sp),a1 Skip the return address 
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get_wd4 moveq_ #io_fstrg,d0 
trap #3 
tst.] do 
bne get_wd2 
rts 
; Error entries 
d_ins_error addq.l #6,sp 
d_ins_error1 
lea ins_mess,a0 
bsr error 
bra fatal2 


; Probably EOF (shouldn't happen) 


get_wd2_—_addq.l #4,sp 
subq.w  #6,d2 
beq d_ins_error1 
bra Ik_end 

> "A" found 

Ik_3a bsr do_pos 
move.| d1,(a1) 

Ik_end addq.| #4,sp 


Tidy stack 

Send INS error. . 
.. Message 

was it later? . . 


----> .. yes 
defer error message 


Tidy stack 


* now the position of the INS marker is at zeroes and of the extension 


* marker at zeroes+4. 


* We search the extension area for the name of the INS file, check it 


* and load it into the INS place. 


* In each case the file position is set just after the marker. 

* To find the correct extension we read in 6 bytes. The first four 

* give the relative position of the next file, or -1 to signal the end. 

* The next word is 1 for the required extension. 

* When the extension is found, the name of the INS file is two bytes from 


* the end of the "1". 


subq.l #6,sp 
lea zeroes,at 
tst.l (a1) 
beq d_ins_error 
move.| 4(a1),d1 
beq d_ins_error 
moveq  #fs_posab,dO 
trap #3 

d_ins1 bsr get_six 
move.| (sp),d1 


bled ins error __ ----> 
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space for info from file 


----> nolINS to do 


pointer to EXTENSION info 
----> 


get 6 bytes 
to next file 
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cmpi.w = #1,4(sp) _INS name? .. 
beq d_ins found’ ..yes 
bsr do_pos1 go forward D1.L - 6 bytes 
bra d_ins1 
d_ins_found bsr get_lwd get length of INS filename . 
move.w  2(sp),d2 . to D2.W 
addq.| #6,sp reset stack 
lea zeroes+92,a1 
move.w d2,(a1)+ set length for OPEN 
bsr get_wd4 get filename to zeroes+90 


* 


* Now compare names (without regard to case) 

* We put the name in INS place to zeroes + 82. 

* We put (truncated to 10 bytes) the name from the filename 
* to zeroes + 142, with the count in zeroes + 140. 

* This count is also put in zeroes + 80. 


* The comparison is by UT_CSTR 


move.| zeroes,d1 position of name in INS .. 
addq.| #2,d1 .. set 

moveq  #fs_posab,d0O 

trap #3 

moveq #10,d2 10 bytes needed 

lea zeroes+82,a1 

bsr get_wd4 get name from INS place 
moveq #"_",d4 

lea zeroes+90,a2 

adda.w zeroes+92,a2 ->end -4 

move.| a2,d5 keep place in D5.L 
move.| d5,d2 

lea zeroes+95,a0 

sub.| a0,d2 


d_ins2 cmp.b -(a2),d4 
dbeq d2,d_ins2 look for "_" 


bne d_ins_error1 = ----> 

addq.l #1,a2 

sub.| a2,d5 length 

cmpi.l #10,d5 

bled_ins5 

moveq  #10,d5 restrict length to 10 
d_ins5 lea zeroest+140,a0 place for restricted name 
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move.w_ d5,(a0)+ first the length. . 
lea zeroes+80,a1 
move.w d5,(a1).. also to the INS name 
bra d_ins6 
d_ins3 move.b (a2)+,(a0)+ 
d_ins6 dbf d5,d_ins3 
lea zeroes+140,a0 reset AO 
suba.| a6,a0 
suba.| a6,a1 
moveq  #1,d0 comparison (any case) 
movea.w_ ut_cstr,a2 
jsr (a2) 
tst.] do 
bne d_ins_error1 = ----> 
d_ins4 
lea zeroes+92,a0 point to filename 
moveq #1,d3 open_in 
moveq  #io_open,d0 
moveq  #-1,d1 myself 
trap #2 
lea zeroes+16,a1 for header 
move.| a0,-4(a1) keep ID of INS file 
moveq #-1,d3 timeout 
moveq #64,d2 size of buffer 
moveq #fs_headr,d0O 
trap #3 
move.| zeroes+16,d1_ length of file 
moveq #-1,d2 myself 
moveq #mt_alchp,dO 
trap #1 
tst.] do 
bne d_ins_error1 = ----> 
lea zeroes+8,a1 
move.| a0,(a1) keep ALCHP'd address 
movea.l| a0,a1 
move.| zeroes+16,d2_ length of file 
moveq #-1,d3 timeout 
movea.| zeroest+12,a0 ID 
moveq  #fs_load,dO 


CONFIG BLOCKS IN TURBO (CONCLUDED) 


ERRATA In the previous articles £ should be £ 


Dec 2006/Jan 2007 Page 18 


Quanta Magazine 


trap #3 

moveq  #io_close,dO a 

trap #2 close INS file 
movea.| obj chan,a0 

moveq  #-10,d1 to wind back 10 bytes 
moveq  #fs_posre,d0 

trap #3 

move.| zeroes+16,d2 


moveq  #-1,d3 
movea.| zeroest+8,a1 
moveq _ #io_ sstrg,dO 
trap #3 

movea.| zeroest+8,a0 
moveq #mt_rechp,dO 
trap #1 


KREKEKRERERERERERERERERERERERERERERERERERERERERERERER 


* End of code for _INS files + 


KREKRKRRRREKREKRERERERERERERERERERERERERERERERERERERERER 


Operating System Calls 


Trap #1 calls 
mt_alchp Reserves space and returns its address 
Entry Exit 
D1.L is the size needed AO is the address 
D2.L is set to -1 for "this job" 
mt_rechp Returns space to the heap 
Entry Exit 
AO is the address 
Trap #2 calls 
io_open Opens a file and returns its ID 
Entry Exit 
D1.L is set to -1 for "this job" AO contains the channel ID 


D3.L is set to 1 for "open_in" 
AO points to the file name 


io close Closes a channel 
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RIVA SEVUICES 


NEWS! 


We have moved back to Walsall for the time being - see our current aikiress at the 
bottom of the page. 


Satter news ts that we now have an extended range of second hand items for the 
Sineiaie Qt and ZX Spectrum, and have one remaining Epson 850 Inkjet printer 
available. ZBB stocks are however now gethng quite low so if there is anything you 
need, please browse our website: 


http: //werw. napsoftware. co.uk 


We are aise looking to produce some new hard disk intertaces for the ZX Spectrum 
and have 2 tow littie projects on the drawing board. 


Que websites 

Hétp:// were, twapserrices co.uk (Genera) site) 

fitp://weww. rwapsoftware.co.uk (Sincleit computer second hand and mew items) 
hittp://wew.rwapadventures com (Adventure Programs) 

hitp://rrew. intarnetbusinessangels.cam (Guidance on setting up online businesses) 


swioli£O  'sounp on epcal 


The wait is now over! Q-Word version 1 is finally available! 


Platforms: 

OPC/OXL, O40/Q60. Aurora (with SGC) 

Prices; 

All versions without P-Word £20.00 
All versions with P-Word £30.00 


Notes: 

Q-Word DOES NOT require SMSOVE with GO2 support -OR- SMSQ/E at all on 
the Aurora or Qx0 machines. It works on the highest colour depth everywhere 
regardless of Operating System. 

The Aurora version ts available on either HD or ED disk. For the latter add 
£1,00 to the price. ED version is uncompressed and can be run directly from 
the floppy. All other Floppy versions are compressed, OPC/QXL version 
‘comes on CD. Non CD versions DO NOW suppor digital sound on OPC2 


Quantum Leap ED Drives 


The bed news is that our stock of ED Disk Drives has now beer depleted and there is 
fo sign of any more being available in the short term. 


We do however have # range of brand new OD and ED 3.5* Diskettes for sale at low 
prices: 


10 x 3-S* DSOO Disks £7.50 
10 x 3.5° ED Diskettes £10 
10x 2” Disks £9 


Prices do nat inchide post and packing - please ask us for details 


We do have a range of second hand disk interfaces and drives (one or two ED 
Drives) for use with the Sinclair QL, so if you need anything, please let ask 


for Windows 


For QLers that run Windows or with incompatible hardware for 
Talent Games, we now have re-released these adventures so that 
they can run on your Windows-equipped PC. No Emuiator, 
floppies, microdrive backups etc. required, just a one-click install! 
Of course the full QL line is still available! (See side colurnn) 


Talent Games tor Windows ea, £ 10.00 
(Each Game inchides a runtime instalation of QLAY-2 by Jimmy Montesinos) 


RIVAP Services 


26 Oak Road, Sheifield, Walsall, Weat Midlands WS4 IRQ 
Website: http://www .rwapsoftware.co.uk 
Email: sales@rwapsoftware.co.uk 


TEL: 4-44 1922 691607 


We Accopt Payment using: 


NOCHEx 
may way a 
vamos 


Old Favourites! 


Utilities 

SBASIC / SuperBASIC Reference Manual on CD 
Sidewriter v1.08 

Landscape Printing (EPSON printers) 

imageD v1.03 

3D object generator 

Q-Help v1.06 

Superbasic On-Screen help system 

O-ndex v1.05 

Koyword-to-topie finder 

ProForma ESC/P2 Drivers v1.04 for ProWeSs 
Printer Oriver 


Applications 


Flashback SE v2.03 (upgrade only) 
Database 

QL Cash Trader v3.7 

Accounting /Finance 

QL Payroll v3.5 

Accounting/Finance 

QL Genealogist v3.26 

Genealogy 


Genealogy tor Windows 
QL Genealogist to Windows version upgrade 
QL Cosmos v2.04 
Planetarium 
Q-Route v2.00 
Route Finding 
Upgrade trom vt ox 
Britain map vt.11 
BIG Britain map (needs 2Md) v2.03 
Various Britain Area maps (ask for detaits) 
freland map v1.00 
Belgium map v1.01 
Catalonia map v1.03 
P-Word UK English Dictionary (500.000 words!) 
Dictionary 


Leisure 


Return to Eden v3.08 
Adventure 

Nemesis Mkil v2.03 
Adventure 


The Lost Kingdom of Zkul v2.01 
Adventure 
All 6 games above 


D-Day Mkil v3.04 
Strategy/War Simutation 

Grey Wolf v1.08 

Graphical Submarine Simulation 
War in the East Mkil v1.24 (upgrade only) 
Strategy/War Simulation 

Open Golf v5.20 

Sports Simulation 

QuizMaster II v2.07 

Owes 

Stone Raider It v2.00 
Arcade Garne 

Hoverzone v1.2 

Arcade Game 

Deathstrike v1.5 

Arcade Game 

Flightdeck v1.0 

Flight Simulation 


£ 20.00 
£10.00 


£10.00 


All 6 games above (Open Golf, QuizMaster |I,Stone 


Raider li, Hoverzone, Deathstrike and Flightdeck) 


Notes on Software requirements 


The following programs have a minimum SGC card requirement: PWord, 


Qword. Big Britain MAP tor O-Route 


From the UK Dial! 01922 691607 


{Cheques in £ storing made payable to R. Metior) 
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Entry Exit 
AO is the channel ID 


Trap #8 calls 


In all these calls AO must contain the channel ID on entry and D3.W 
contains the timeout. In the above code timeout is always -1 (forever). 


io_fstrg 


io_sstrg 


fs_posab 


fs_posre 


fs_headr 


fs_load 


Vector 


ut_cstr 


Fetches a number of bytes to a buffer from a 
channel 
Entry Exit 
D2.W is the number of bytes D1.W is the number 
fetched 
A1 points to the buffer's start A1 points to the end 


Sends a number of bytes from a buffer to a 
channel 
Entry Exit 
D2.W is the number of bytes D1.W is the number sent 
A1 points to the buffer's start A1 points to the end 


Sets the position in a file 
Entry Exit 
D1.L is the requested position D1.L is the new position 


Sets the relative position in a file 
Entry Exit 
D1.L is the offset required D1.L is the new position 


Reads the file header to a buffer 
Entry Exit 
D2.W is the buffer length D1.W is the number read 
A1 points to the buffer's start A1 points to the end 


Loads a file into a buffer 
Entry Exit 


D2.L length of file 
A1 points to the buffer's start A1 points to the end 


Compares two strings 
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Entry Exit 
DO.B is the comparison type DO.L = 0 if strings same 
(A0O,A6.L) -> 1st string 
(A1,A6.L) -> 2nd string 


Comparison types are from 0 to 3. Type 1 compares strings without re- 
gard to case. 


USING SSSS George Gwilt 


SSS is the SMSQE sampled sound system provided on the Q40, 

Sie Q60 and QPC2. | would guess that not many people have 

made much, if any, use of this facility. After all, if anyone wants to 

incorporate a sound in their program they probably use BEEP, which certainly 

can produce a wide variety of interesting noises and which works on all QL 
types unlike this curious SSSS. 


First of all | should explain what a sampled sound system is. Briefly 
it is a method of converting sounds between analogue and digital form. Sound 
picked up by a microphone will appear as a voltage varying with time. This is 
captured at discrete intervals of time and converted to a number by a piece of 
hardware called an analogue to digital converter (ADC) and recorded. Later this 
set of numbers can be reconverted to analogue form by a piece of hardware 
called a digital to analogue converter (DAC). There are no ADCs on a Q40 or 
Q60 but there are two DACs, one for the left speaker and one for the right. You 
might now see that the "sampled" part of SSSS refers to the fact that the sound 
is sampled at intervals. The frequency of sampling obviously has an effect on 
the fidelity of the digital representation. Higher frequencies mean better record- 
ings but larger files of numbers. The frequency used by SMSQE is 20k Herz 
which is considered sufficient for most purposes. 


With the Q40/60 come programs, all based on SSSS, by Claus 
Graf, Simon Goodwin and Jonathan Hudson, which will play sound. What | want 
to do here is to show how anyone can use this sound system directly without 
needing, for example, Simon Goodwin's SSSS device driver. | must say that | 
am doing this partly out of perversity since it is suggested in the one and a half 
page description of the SSSS that "in principal this [program] will be a sound 
device". What | will show is rather simpler. 


It is clear that SSSS will only play files which already exist; it will 
not help you to produce these. In later articles | hope to suggest how this may 
be done. For the moment | am concerned only with the process of using SSSS 
to play existing files. 
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QUANTA 


Independent QL Users Group 


World-wide Membership is by subscription only, 
Offering the following benefits: 
Bimonthly Newsletter ~ up to 40 pages 
Massive Software Library — All Free! 
Free Helpline and Workshops 
Regional Sub-Groups. One near you? 
Advice on Software and Hardware problems 
Subscription just £14 for UK members 
Overseas subscription £17 


Barclaycard: Visa: Access: MasterCard: Accepted 
*Now in our Twenty Third Year* 


Further details from the Membership Secretary 


John Gilpin, 181, Urmston Lane 
Stretford, Manchester, M32 9EH (UK). 
Tel. +44 (0) 161 865 2872 
Or 
Visit the Quanta Web Site 
http://www. quanta. org. uk 
E-mail: membership@quanta.org.uk 


Next QUANTA Sponsored Event 
Sussex QL User Group 


Present: 


The HOVE QUANTA AGM & Workshop 


At Portslade Town Hail 
Victoria Road, 
Portslade, 
Sussex. BN41 1YF 
On 
Sunday 15" April 2007 10am till 4pm 


Watch later QUANTA and QL Today Magazines for full details. 
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| must now explain what SSSS allows you to do. SSSS maintains 
a queue of byte pairs which, when the sound is on, are sent successively to the 
left and right DACs. Each pair of bytes in the queue is called a sample. 


There are five entries into the system to control operations. 


Operation Entry 
1. To add one sample to the queue. JSR $04(A2) 
2. To add multiple samples to the queue. JSR $08(A2) 
3. To notify SSSS that multiple samples have 

been added. JSR $0C(A2) 
4. To stop the sound. JSR $10(A2) 
5. To enquire how many samples remain in 

the queue. JSR $14(A2) 


What | have done is to write a small assembler program which can 
be CALLed by S*BASIC instructions to use SSSS. There are three entries to 
the program. 


The first performs operations 2 and 3 above. For this the program 
takes as parameters an address of an area in RAM containing a set of bytes 
which will be treated as mono sound. That is, each byte will be sent both as left 
and as right. The second parameter is the number of bytes. SSSS has a 
$32000 byte buffer to hold the sound bytes. To load multiple samples operation 
2 is called. This sets the start and finish of the available space in this buffer. 
When the program has sent a batch of bytes to this buffer, it notifies SSSS by 
operation 3. This tells SSSS to "play" these bytes. 

The second entry has no parameters and just stops the sound. 


The third entry has no parameters either, but it returns the number 
of samples remaining in the queue. 


Here is the program, followed by some comments: 


; CALL asad,a,k adds multiple samples 
; (ais the address of a k-byte area of sound pairs) 


; CALL asad+2 stops the sound 
; CALL asad+4 sets the number of samples left to asad+6 


; The macro SETVEC is used for START2 and START3 
SETVEC MACRO ENTRY 
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ANS 


START 1 


L2 


MOVEA.L 
MOVEA.L 
CMPI.L 


MOVEA.L 
MOVEA.L 


MOVEA.L 
CMPI.L 


MOVEQ 
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$70,A3 
-(A3),A2 
#"SSSS",-(A3) 
BAD_EXIT 


Level 4 auto vector 

set the required vector to A2 
Is it the sound system? 

----> 

to supervisor mode 

do the job 

back to user mode 


WIN1_SYS_EQUBAS_ASM 


START 1 
START2 
START3 
1 


D1,A5 


$70,A3 
-(A3),A2 
#"SSSS",-(A3) 


D4 


(A0)+,(A1)+ 
A2,A1 
L2 
D4,L 
D4 
D4,L3 
#1,D5 
A4,A2 
$C(A2) 
#0,SR 
D5 
EXIT‘ 
SUS 


send samples 

kill sound 

returns number of samples left . . 
..in ANS 


address to A5 


----> 
mark "not finished yet" 
keep vector 


prepare for multiple entry 
set k to D4 
start of space 


switch to low word (65535) 
same byte .. 

.. to left and right 

Is buffer full? . . 

.. yes (before time maybe) 
count k pairs (low word) 
prepare to count high word . . 
. . count high word 

mark "finished" 


tell SSSS that samples were added 
back to user mode 

finished? . . 

.. yes 

wait 5 ticks. . 
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e G 
° & Workshop 


Victoria Road Portslade Sussex, BN41 1 YF 
Sunday, 15th April, 2007 


10am till 4pm 
Welcome to the 2007 Hove Quanta AGM & Workshop. 
This year we once again hope to have several interesting talks to engage your interest. 
Details will be announced closer to the date. 

We are arranginging a dinner on the Saturday evening for those staying overnight. This will be 
held at Bom Banes Resaurant. (www.bom-banes.co.uk) This is a most unusual venue and 
should be a good evening. Please contact sales@qbranch.demon.co.uk to book a place. 

All this, the usual good food at thee venue and a day by the seaside. 
A list of hotels will be posted soon.What more could you ask for? 
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EXIT1 


BAD_EXIT 
START2 
START3 


SREG 
SUS 


MOVEA.L 
TRAP 
JSR 

BRA 
MOVEQ 
EXIT 
MOVEQ 
BRA 


SETVEC 
BRA 


SETVEC 


MOVEM.L 
RTS 
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A4,A2 . . replace vector pointer . . 
#0 . . to supervisor mode . . 
8(A2) .. get new queue pointers . . 
L4 ..and try to finish this time. 
#0,D0 

RTS 

#-15,D0 

EXIT 


$10 
EXIT1 


$14 
ANS,AO 
D0,(A0) 
EXIT1 


DO-1/D3/A0 
SREG,-(A7) 
#-1,D1 this job 
#5,D3 wait 5 ticks 
A1,A1 notify no-one 
#MT_SUSJB,DO 

#1 wait 
(A7)+,SREG 


The file which is included in the program follows: 


; EQUBAS_ASM on WIN1_SYS_ 


; 7 AUG 92 


BV_BFBAS 
BV_BFP 
BV_TKBAS 
BV_TKP 
BV_NTBAS 
BV_NTP 
BV_NLBAS 
BV_NLP 
BV_VVBAS 
BV_VVP 
BV_CHBAS 
BV_CHP 
BV_RTBAS 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
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BV_RTP EQU  $3C 
BV_LNBAS EQU $40 
BV_LNP EQU $44 
BV_BTP EQU $48 
BV_BTBAS EQU $4C 
BV_TGP EQU $50 
BV_TGBAS EQU $54 
BV_RIP EQU $58 
BV_RIBAS EQU  $5C 
BV_SSP EQU $60 


BV_SSBAS EQU $64 
Comments on the Program: 


1. The sound system subroutines are found by examining an 
address, a, stored in the level 4 auto interrupt which is at RAM address $70. 
The long word at a-8 is "SSSS" and the long word at a-4 is the address used 
for the entries to SSSS. 


The program sets the address a in A3, the address in a-4 to A2 and 
checks that the contents of a-8 are indeed the bytes "SSSS"_ 


2. All accesses to SSSS must be in supervisor mode, which is 
achieved by TRAP #0. Return to user mode is brought about by MOVE #0,SR. 


3. Since the number of byte pairs to be sent to SSSS may exceed 
216 - 1 (65535) it is necessary to modify the usual method of counting. This is 
done here by counting the low word in D4. We drop through the DBF when 
D4.W becomes -1. At this stage we swap the words of D4 and count the high 
word with a second DBF. If the high word of D4 was not zero we jump to L3 
where the words of D4 are again swapped, leaving D4.W equal to 65535. 


4. The entry JSR $08(A2) to SSSS sets the start address of the 
availble buffer area to A1 and the end of this area to A2. We thus have to check 
after each byte pair has been sent to the buffer whether there is room for more. 
If there is not room SSSS is notified that multiple bytes have been sent so that 
it can play these and free the buffer for more bytes later. At this stage we wait 
five ticks and return to L4 to send a further batch of sound bytes. 


5. The program can easily be adapted to play stereo sound by 
altering the line at L to: 


L  MOVE.B_ (A0)+,(A1)+ 
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This means of course that the size of the area of sound pairs must be doubled 
for the same time length of sound. 


6. This program can be tested using any set of bytes. You can 
even use RAM from 0 upwards! The sound you get will be probably be no more 
than rasping. It will certainly not be Beethoven's Ninth Symphony. 


CLUE TO THE XMAS CHALLENGE Steve Poole 


e know that it’s not 28th February yet but just in case you are 
struggling with the QUANTA Christmas Challenge (Volume 23 
Issue 5 Page 9) Steve has sent you all a clue: 


Using the formulae x =v COS a*t 
and y=vsiNa-%gt*2 
as given last month, here is a trajectory demonstrator programme which could 
be adapted: 


20 input ‘velocity & angle’! v,a 
40 a=rad(a) 

50 g=9.81 

60 tmax=2*SIN(a)/g 

65 CLS : SCALE v * tmax,0,0 
70 for t=0 to tmax step .1 

80 x=v*COS (a)*t 

90 y=v*SIN(a)*t-.5*g"*t*t 

100 POINT x,y 

110 end fort 

120 : 


End of listing. 
Start with v = 75 and a = 50 for the INPUT values at line 20 and 


experiment from there. 


Remember that the closing date for entries is midnight on February 
28th 2007. All entries to Sarah Gilpin, QUANTA Secretary. (see inside front 
cover for address etc.) 
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MINISQL VERSUS LCD MONITOR Dilwyn Jones 


inch monitor, courtesy of my (she claims) long-suffering wife. 

This monitor has an optimum resolution of 1024 x 768 pixels and 
was intended for use with my PC and QPC2, where it worked first time with 
no problems. 


| recently became the proud owner of a Relisys TL565 LCD 15 


It has small stereo speakers built in with plenty of volume, although 
rather tinny in quality compared to most computer speakers. Picture quality 
is great, text is much sharper and easier on the eye than my old CRT 
monitor (less eye strain!) and of course takes much less space than the old 
CRT monitor. It's black and silver (there is a light grey or all black version 
available too). Above all, it cost less than 100 pounds from eBay. 


| wondered if it could be used with my Minis-QL, which is based on 
an Aurora motherboard, with a Super Gold Card, SuperHermes Lite, 
MPlane and Qubide. 


Well, the sound part was easy. A simple 3.5mm jack lead connected 
the Aurora's sound output to the monitor. The volume control allowed the 
beeps and keyboard clicks to be as loud as | needed. 


Pictures weren't quite so easy. So here's my tale of how | got the 
Aurora to work with an LCD monitor, to save anyone else going through the 
same trauma.: 


Problem 1: LCD monitors have one optimum display resolution. 
Anything else is scaled and looks poor or awful. 


Problem 2: Most 15 inch LCD monitors are 1024x768 resolution, 
which the Aurora should be able to display in mode 4 (it doesn't have 
enough video memory to display 256 colours in 1024x768). 


Problem 3: Most attempts to display anything other than 1024x768 
ended with part of the Aurora display off-screen, rather like putting a QL in 
monitor windows mode with a TV set. 


Problem 1 basically meant that the monitor preferred a 1024x768 
display. This is 4:3 aspect ratio. Attempts to display 800x600 or 640x350 
gave what can only be referred to as awful, unreadable pictures which either 
didn't fit the screen or were scaled in such a way that parts of letters went 
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missing - imagine trying to read text where the vertical lines were missing in 
most letters. Resolutions which worked best were those which were multi- 
ples of 256 pixels across and 128 pixels down in a 4:3 aspect ratio. This 
meant that 512x384, 640x480 and 768x576 gave reasonable results, but 
512x256, 640x320, 640x350 and even 800x600 gave very poor results. 


Problem 2 was unexpected. At first, | couldn't get the Aurora into 
1024x768 pixel mode. DISP_SIZE 1024,768 actually resulted in a 
1024x576 display (confirmed with PRINT SCR_XLIM,SCR_YLIM). Ah well, 
if all else fails, read the manual, and find out that there's a set of three 
jumper links listed in Appendix A of the manual. These are near the centre 
of the motherboard, referred to as System Configuration Jumper Block in 
the manual. By default, these are set to the SVGA monitor, interlace 
disabled. This mode limits the display resolution to 1024x576 maximum. 
The logical step seemed to be to change this to Interlace Enabled setting, 
which only resulted in a blank screen. So | tried the Multisynch Monitor 
setting and this worked. | got a mode 4 1024x768 screen, but ran into 
problem 3. 


+-----+ FIGURE 1 - Aurora System Configuration 
loool Jumper Block. The part that we are 
+-----+------ +---+---+---+---+ interested in is the set of three links on the 
jloooloool|o jo |o jo] right of the picture. To set Multisynch mode, 
+-----+------ + | | | | join the rightmost pins with a jumper link and 
joooloool|o Jo [o jo] leave the two pairs of pins to the left of those 


teannnotonn-n- a a unconnected. 
System Configuration 
Jumper Block 


Problem 3 was a strange one and the hardest to resolve. No matter 
what screen resolution the Aurora was set to, the monitor tried to auto adjust 
and parts of the display fell off screen. There seemed to be no logic to it - 
sometimes the display would be normal, sometimes not. | eventually real- 
ised that the auto-adjust seemed to set the visible display to the largest 
non-black section. If | set the Aurora to 640 x 480 only about 512 pixels 
across was shown. If | set a border around the entire screen, or set a 
background colour which wasn't black, then hit Auto Adjust on the monitor, 
normality was restored. So from this | concluded that Auto Adjust works by 
sensing non-black areas of the picture. So the easiest way around this is to 
set a white border around the entire screen. 
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WINDOW #0,SCR_XLIM,SCR_YLIM,0,0 : BORDER #0,1,255 then 
hit Auto Adjust via the monitor's front panel buttons if it didn't set itself 
automatically. 


Once the Aurora is set correctly, it's then just a matter of fooling the 
monitor into auto-adjusting correctly. Once you get it working, the 1024 x 
768 Aurora display is fantastically clear on the monitor. And the MinisQL 
case is the right size to sit under the monitor, and the monitor is light enough 
to sit on the MinisQL case, so it all makes for a rather nice and compact 
system. 
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ROBOTICS ON THE QL (Part 2) David Buckley 


control it. So how do we control a Turtle, in effect a robot 

vehicle? Well Zero2 was conceived in the days when embed- 
ed microcontrollers were not so easy to use as nowadys so Zero2 doesn't 
use one. The controlling computer (a QL, or any other PC with a serial port, 
eg a Spectrum) sends bytes at 4800 baud which are received by Zero2 with 
an onboard 6402 UART, the parallel output of which is routed through some 
inverters, latches and darlington drivers to control the stepper motor for 
each wheel and the stepper motor for the pen, as well as the lights and horn. 


| ast month | introduced my Zero2 Turtle and my QL program to 
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PEN STESPER 
MOTOR 


(nae icaL 
CONNECTOR 


txra . 
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STARGOARO 
INDICATOR 
Gnren 


LOUDSPEAKER 


Figure 1 


Figure 1 shows the main components of Zero2 and shows the items 
mentioned above. 


Zero 2 is very easy to program, the serial port (either RS232 or 
RS423) must be to 4800 baud one stop bit and no parity. 


Every function of Zero2 can be controlled and monitored by the 
computer. To communicate directly, it must be told which device is to be 
involved, and what that device is to do. Each device has a numeric address, 
to which the control data is sent. Valid addresses are from 0 to 7, though 
not all addresses have anything there. 


Address Effector device Sensor device 

0 Drive motors Line/Edge detectors 
1 Pen motor Left bumper 

2 Indicators Right bumper 

3 Speech 

4 Speech/Sound 

5 Sound 


Dec 2006/Jan 2007 Page 33 


Quanta Magazine 
Once you have identified the address of the device you wish to 
control, you need to send this number together with the data to the robot. 
This is sent as one value, The address is in the high nibble and the data in 
the low nibble, ie multiplying the address by 16 and add the data. 


Data values can be between 0 and 15. For example, to send a data 
value of 5 to the indicators: 


Address = 2x6 = 32 
Data = 5+ 
Value sent to port = 37 


The data to be sent varies for each device, as can be seen by a 
quick look at the next section. This is because each of the controls in the 
robot is connected to one of four electronic switches, each of which can be 
on or off. The data you send decides which switches are on and which are 
off. The following table shows which switches are on for each of the data 
values (1 means on, 0 means off): 


Data Switch Data Switch 
3210 3210 
0 0000 8 1000 
1 0001 9 1001 
2 0010 10 1010 
3 0011 11 1011 
4 0100 12 1100 
5 0101 13 1101 
6 0110 14 1110 
7 0111 15 1111 


i.e. simple binary encoding. 


Each motor is controlled by two switches, switches 2 and 3 for the 
left motor, switches 0 and 1 for the right motor. To make each motor move 
forwards you need to send instructions in the order 01,00,10,11. By check- 
ing the above table, you can see that to move the right motor only, you can 
send the data as 1,0,2,3. To drive the left motor only, you send 4,0,8,12. To 
drive both motors forward send 5,0,10,15. To drive the motors backwards 
send the data in the reverse order. To turn the motors in opposite directions 
send 6,0,9,15 or 9,0,6,15. This is a lot of numbers, but on closer examina- 
tion thay are all obtained from the original 1,0,2,3 and 4,0,8,12 by adding 
the value for the step position of one motor to that for the other. You start at 
one end for one direction, and the opposite end for the other. 
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i093 (2: OA. Ss 
+408 12 (12) 40812 
5 01015 60915 


Each time you send a data code to address 0, one or both motors 
will move one step. If the data is out of sequence the motors will not operate 
properly and will probably just judder. Each step moves the wheel by 
0.5mm. 


Alternatively to move 4 steps at a time, then by always ending on 15 
the codes will remain in sequence. l.e. 


forward - 5, 0,10, 15, 
backward - 0,0, 5, 15, 
right - 6,0, 9, 15, 
left - 9,0, 6, 15. 


The pen is controlled by the same kind of motor as the wheels, and 
the same codes are used to control it, except that only switches 0 and 1 are 
involved. One step of the motor is 1/48 of a complete turn. Normally you will 
want to move the pen motor half way round each time which is 24 steps, so 
you would send the full sequence of steps six times. Remember that the pen 
is at address 1, ie the high nibble of the data=1. The position of the pen 
should be initialised to 'up' by sending individual steps until the pen is ‘up’, 
then the software and the pen will be synchronised. There is no need to 
send the codes to reverse the motor. 24 forward steps from 'up' will lower 
the pen to 'down' and another 24 forward steps will raise it to 'up' again. 


The LEDs and horn are connected to the switches at address 2 as follows; 


Green LED Switch 0 
Red LED Switch 1 
Low Horn Switch 2 
High Horn Switch 3 


To switch on the red LED, for instance, you need to send the 'on' 
code for switch 1. Unfortunately, if you send just that, you will switch off the 
other LED and horn if they were on. Every time you send a value to an 
address it replaces the previous value. You must keep a note of what was 
previously sent to the address and make allowances when sending fresh 
data. Assume the low horn and green LED are already on, and you want to 
turn on the red LED. The last data sent to address 2 was 5 (0101 - see 
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table). The code for red LED on is 2 (0010), Add these numbers to get 7 
(0111) which will give you the new data. Add on the address x 16, send it to 
the robot and on comes the red LED. Now, suppose you want to switch off 
the green LED. The code for green LED on is 1. Subtract this from the last 
data value of 7 to get the new data. 


Each time a value is sent to a robot address. Zero 2 will send back 
a code relating to any sensors connected to that address. Address 0 can 
have up to six switches connected to it but the other addresses can only 
have up to four each. 


Only address 0 has sensors connected, these being the three line 
follower sensors, connected to switches 0 to 2 (switch 3 is always off). 


Whenever either drive motor is stepped, the line follower sensors 
will send back a value from 0 to 7 which can be used to allow Zero 2 to 
follow a line. A value of 0 means that all the sensors see a dark surface, 
while 7 means they all see a bright one. 


Most BASICs of the time were fairly slow when dealing with the real 
world, so rapid response were never a problem when programming Zero 2 
directly from BASIC. When running the Zero2 Basic Control-program under 
QPC2 under XP some strange things seem to happen with the Serial port 
and its buffer and Zero2 runs slow and judders. Quitting and rerunning the 
program clears the problem as does quitting and restarting QPC2. This 
never happened on a QL. A very simple program to drive the robot forward 
100 steps is given below, assuming you have already set the baud rate: 


100 zchan=3 :REMark for serial port to robot seri1 

110 baud_rate=4800 

120 OPEN #zchan,seri:BAUD baud_rate 

130 DIM mtremnd(4) 

140 mtrcmnd(1) =5: mtremnd(2) =0: mtremnd(3) =10: mtremnd(4) =15 
150 FOR dist=1 TO 100/2 :REMark because 4 steps are 2mm 
160 FOR step=1 TO 4 

170 PRINT #zchan, CHR$( mtrcmnd(step) ); 

180 NEXT step 

190 NEXT dist 

200 END 


Note the ';' at the end of the print statement to prevent a LF being 
sent. LF=10 which will upset the sequence of codes sent to the motors. 
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When writing to Zero 2 each device, or device group, has an 
address which forms the first three bits of the upper nibble. These are 


allocated as follows. 


Address Device Data bit allocation 
0 Drive Motors D3 D2 D1 DO 
left right 
(port) (starboard) 
motor motor 
1 Pen D3 D2 D1 DO 
for future Pen lift 
allocation motor 
2 Indicators D3 D2 D1 DO 
Horn Horn Left Right 
High Low LED LED 
Tone Tone 
3-7 for future use for future allocation 


In a small Stepper motor the control sequence codes are normally: 


Binary Decimal 


0101 5 
1001 9 
1010 10 
0110 6 
0101 5 


In Zero2 this is generated from two data lines with two inverters 


WnNOoO-W 


giving 


I*|* 


(l=inverted signals) 
0101 5 


1001 9 
1010 10 
0110 6 
0101 5 


Each full motor step results in the robot travelling 0.5mm 


[Once again space has run out and we will have to postpone the 
conclusion of this article until the next issue Ed] 
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[There are no changes to any of the Sub Groups - Please see Issue 
5 for Sub Group details Ed] 


[Due to the lateness of this Issue, the QUANTA News feature has 


been omitted. Anything which can still be classified as NEWS will be 
included next Issue Ed] 
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QDT - The QL Desktop £41.50 + P&P 
New version available now. ‘Drag and Drop’ & improved icon editor. File Manager coming during 
the summer with many new features. 


EASYPTR parts 1&2 version 4 - high colour £41.00 on CD with manual in Adobe format 
EASYPTR parts 1&2 upgrade £ 27.50 on CD (send master disk) 

QPCPrint - print to any printer from QPC2 £ 27.50 on CD with manual in Adobe format 
(needs v3.3x QPC2) 

QPC2 v 3.32 (SMSQ/E v3.12) £42.00 

Upgrade from version 3.xx £ Free. Send Master disk and return P&P 
Upgrade from v2.xx £ 13.90 

Upgrade from v 1.xx £ 34,00 


SMSQ/E v3.12 for all systems out now. New features include background updating. Aurora High 
Colour version is now included as standard. 


Keyboard mebranes _ few left £17.50 
New Super/Gold Card Batteries £10.00 + P&P 
Aurora Motherboards - new £65.00 
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TF Services 


OL RomDisq 


A UK 4 way trailing socket designed to switch off 
computer peripherals automatically when the 
computer is switched off, or (in the case of an ATX 
computer) when it auto-powers down. Compswitch 
has one control socket, and three switched sockets 
Can be used with lghts/hifi/monitors—ie a QL 
monitor can be used as a switch control 


Cost £24 
____ SuperHermes 


A major hardware upgrade for the QL 
All Hermes features (working serl/2 at 19200, 
independent baud rates/de-bounced keyboard/ 
keyclick) IBM AT kod I/F /f HIGH SPEED RS232 at 
57600// serial mouse port and 2 other R5232 inputs// 
31/0 lines // EEPROM 
Cost Gncluding manual/software) 
IBM AT UK layout Keyboard 
Serial mouse 
Capslock/scrollock LED 
Keyboard or mouse lead £3 (£3.50/£3 50) 
High speed serial (ser3) lead £A (£4 50/£4 50) 


Hermes available for £25 (£26/£27) Working serl/2 and 
independent input, debounced ke yhoard. 

SuperHermes LITE: All Hermes features (see 
above) + anIBM AT keyboard interface only 

Cost (incl keyboard lead) £53 (£54/£55) 


£90 (£92/£93) 
£11 E13/£15) 
£8 (£8 50/£9) 
£1 (£1 50/£1 50) 


Fixed price for unmodified QLs, excl microdrives. QLs 
tested with Thorn-EMI ng and ROM software 


£27 incl 6 month guarantee 


OTHER FEATURES COMMON TO ALL VER SIONS 
DEBUGGED operating systenv autoboot on reset of power 
failure/ Multiple Basic! faster scheduler- graphics (within 
10% of lightrung) - string handling’ WHEN ERRORJ 2nd 
scree!) TRACES non-English keyboard drivers/ “warm” 
fast reset. V1.97 with split OUTPUT baud rates (+ Hermes) 
& built in Multibasic 

Fisst upgrade free. Otherwise send £3 (+£5 fr manual if mqud) 

Send disk phus SAE or two IRCs 


MKI..£40 (£41/£43) MKII..£65 (£66/£67) 


MINERVA RTC (MKID + battery for 256 bytes ram. 
CRASHPROOF clock & FC bus for interfacing. Can 
autoboot from battery hacked ram. Quick start-up. 


Up to 8 mbyte of flash memory for the QL 

A small plug in circuit for the OL’s ROM port (or 
Aurora) giving 2, 4 or 3 mbytes of permanent storage - 
it can be thought of as a portable hard disk on a card, 
and reads at some 2 mbytes per second 

Think of it - you could fully boot an expanded QL, 
including all driversSSMSQ ete off RomDisq at hard 
disk speed with only a memory expansion needed 


2 mbytes RomDisq £39 (£40/£41) 
4mbytes RomDisq EGS £66/£67) 

mbytes RomDisq £98 (£99/£100) 
Aurora adaptor £3 (£3 50/£4) 


——_______MPLANE ____. 
A low profile powered backplane with ROM port 


A three expansion backplane with ROM port included for 
RomDisq etc. Aurora can be fitted in notebook case and 
powered off single 5¥ rail - contact QBranch for details. Two 
boards (eg Aurora and Gold Card/Super Gold Card/Goldfire 
fixed to base. Suitable for Aurora (ROM accessible from 
outside) & QL motherboard in tower case. Specify ROM 
facing IN towards boards, or OUT towards back of case 


£34 (£35/£36) 


Connects to Minerva MKII and any Philips ’'C bus 


Power Driver Interface 16 V/O lines with 2 of these wedd 
control 8 current carrying outputs (source and sink capable) 


2 amp (or? rebys, small mown) £A0 (£43/£44) 
4 amp total (for motors etc) £AS (E48 /E50) 
Relays (2 3a 12y 2-way mains relays (needs 2a power 

driver) £25 (£28/£29) 
Parallel Interface Gives 16 input/output lines. Can be 
used wherever logic signals are required £25 (£274£28) 
Analogue Interface Gives eight 8 bit analogue to digit 
inputs (ADC) and two 8 bit digital to analogue outputs 
(AC). Used for temp measurement, sound sampling ( 
5 KHz), wy plotting £30 (£31/£32) 
Temp probe (-40°C to +125°C) £10 (£10.50/£11) 
Connector for four temp probes £10 (£10. 50/611) 
Data sheets £2 (£2.50/£3) 
Control software & manual (for all UF) £2 (£2 S0s£3) 


OL SPARES 


Keyboard membrane 
1377 7 PAL 
ae diagrams 
spy or 8049 IPC 
S30183 2 or JM ROM or senal lead 
Power swply (sea mail overseas) 
O ts (sockets etc) a sae 


Exices inchaile postage and packing (Aizmail where applicable) Erices are: UK (Barope Rest cf world) Payment by cheque drawn on bank vat UK 


adiress (posta order or CASH! Icanno longer accept card payments as UKonly dees PDQ tramsaction. SAE or IRC for fll Mist and details 


31 Oct 62 


29 Longfield Road, TRING, Herts, HP23 4DG 


Tel: 01442-828254 
tony @firshman.co.uk 
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